home *** CD-ROM | disk | FTP | other *** search
/ PC Answers 2002 January / PC Answers January 2002.7z / PC Answers January 2002.bin / graphics / freepixl / _SETUP.1 / Diskspce.pxl < prev    next >
Text File  |  1999-10-03  |  1KB  |  51 lines
  1. {-----------------------------------------------------------------------
  2.     Filename    : diskspce.pxl
  3.     Purpose    : Get disk type, total and free space
  4.     Date        : v1.0 26 jan 96
  5.     Author        : S.Dibbs, VYSOR Integration Inc
  6.  
  7. ------------------------------------------------------------------------}
  8.  
  9. Initialize:
  10. { Get the screen parameters and adjust the main window for a fixed size. }
  11.     NewCaption$ =  "Get Disk Type, Total and Free space"
  12.     UseCaption(NewCaption$)
  13.     UseCoordinates(PIXEL)    
  14.     WinLocate(NewCaption$,200,100,480,310, Res)  
  15.     
  16.     InfoMenu(REMOVE)
  17.     WaitInput(100)
  18.     SetMenu("Exit!",Run_Leave,
  19.         ENDPOPUP,
  20.         "Get Disk",Get_disk,
  21.         ENDPOPUP)
  22.  
  23.  
  24.  
  25. Wait_for_input:
  26.     WaitInput()
  27.  
  28.  
  29. Get_disk:
  30.     Label$ = "Select a disk from the list"
  31.     List$ = "A:\;B:\;C:\;D:\;E:\;F:\;G:\;H:\;I:\;J:\"
  32.     Delimiter$ = ";"
  33.     Disk$ = "C:\"
  34.     ListBox(Label$,List$,Delimiter$,Disk$)
  35.     If Disk$ = "" Then Goto Wait_for_input
  36.     
  37.     GetDiskSpace(Disk$,Type$,Total,Free)
  38.     DrawBackGround
  39.     DrawText(10,10,Type$)
  40.     DrawNumber(10,30,Total)
  41.     DrawNumber(10,50,Free)
  42.  
  43.  
  44.     Goto Wait_for_input
  45.  
  46.  
  47. Run_Leave:
  48.     End
  49.  
  50.  
  51.